home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / os2 / ftree11a.zip / WEDDINGS.FTX < prev   
Text File  |  1996-10-30  |  3KB  |  113 lines
  1. /*
  2.    Family Tree Rexx Script FTX
  3.  
  4.    Copyright (C) 1996 by <Nils Meier>
  5.  
  6.    Please send comments to / Kommentar bitte an
  7.         meier2@athene.informatik.uni-bonn.de
  8.  
  9.    <
  10.    English:    This script shows all wedding aniversaries in this year.        :English
  11.    Deutsch:    Dieses Skript zeigt die Heiratsjubiläen in diesem Jahr.         :Deutsch
  12.    Nederlands: This script shows all wedding aniversaries in this year.        :Nederlands
  13.    Francais:   Ce script donne tous les anniversaires de mariage dans l'année.:Francais
  14.    >
  15.  
  16.    Long name is <
  17.                  English:    List wedding aniversaries        :English
  18.                  Deutsch:    Auflisten der Heiratsjubiläen    :Deutsch
  19.                  Nederlands: List weddings aniversaries       :Nederlands
  20.                  Francais:   Imprime anniversaires de mariage :Francais
  21.                 >
  22. */
  23.  
  24. /* ----------------------- Params  /  Parameter ------------------- */
  25.  
  26. datewidth=14
  27. yearwidth=datewidth+9
  28.  
  29. CALL InitLanguage
  30.  
  31. /* -------------------------- Output / Ausgabe --------------------- */
  32.  
  33. SAY(msg.Header.LANG)
  34. SAY(COPIES('=',length(msg.Header.LANG)))
  35.  
  36.  
  37. /* Sort Families by Date Month,Day  /  Familien nach Monat,Tag sortieren  */
  38. rc=sortFamilies('MM,MD')
  39.  
  40.  
  41. /* Calculate actual year  /  aktuelles Jahr berechnen */
  42. thisyear=WORD(DATE(),3)
  43.  
  44. /* Display families in tree  /  Familien ausgeben */
  45.  
  46. rc=selectFamily('F')
  47.  
  48. DO WHILE rc=1
  49.  
  50.    /* Get month  /  berechne Monat */
  51.    result=getMarriageDate('m')
  52.  
  53.    /* Check if we've got a month  /  nachpruefen ob wir Monat haben */
  54.    IF result<>'?' THEN DO
  55.  
  56.       /* Get Day   /  berechne Tag */
  57.       day=getMarriageDate('D')
  58.       if day<>0 THEN
  59.          result=result||' '||day
  60.       result=LEFT(result,datewidth)
  61.  
  62.       /* Add anniversary  /  plus Jahrestag */
  63.       year=getMarriageDate('Y')
  64.       IF year<>0 THEN
  65.          result=result||' ('||thisyear-year||')'
  66.       result=LEFT(result,yearwidth)
  67.  
  68.       /* Add name,first name  /  plus Name,Vorname */
  69.       rc=selectPerson('f')
  70.       result=result||getName()||','||getFirstName()
  71.       rc=selectPerson('m')
  72.       result=result||' - '||getName()||','||getFirstName()
  73.  
  74.       /* output  /  Ausgabe */
  75.       SAY(result)
  76.    END
  77.  
  78.    /* Next one */
  79.    rc=selectFamily('N')
  80. END
  81.  
  82. /* Done */
  83. RETURN
  84.  
  85.  
  86. /* ---------------------- LANGUAGE INIT --------------------------- */
  87. InitLanguage:
  88.  
  89.    /* Calculate Language Index */
  90.    lang='E'                              /* Default -> [E]nglish */
  91.    IF getLanguage()='Deutsch' THEN       /* Deutsch -> [G]erman */
  92.       lang='G'
  93.    IF getLanguage()='Nederlands' THEN    /* Nederlands -> [D]utch */
  94.       lang='D'
  95.    IF getLanguage()='Francais' THEN       /* Francais -> [F]rench */
  96.       lang='F'
  97.  
  98.    /* [E]nglish Messages */
  99.    msg.Header.E='Wedding Anniversary this year (next anniversary) '
  100.  
  101.    /* [G]erman Messages */
  102.    msg.Header.G='Heiratsjubilaeum in diesem Jahr (Jahrestag) '
  103.  
  104.    /* [D]utch Messages */
  105.    msg.Header.D='Wedding Anniversary this year (next anniversary) '
  106.  
  107.    /* [F]rench Messages */
  108.    msg.Header.F="Anniversaires de mariage cette année (prochains anniversaires) "
  109.  
  110.    /* Done */
  111.    RETURN
  112.  
  113.